﻿Public Class Feuerkrafttabelle110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 110
    End Function
End Class
Public Class Feuerkrafttabelle105
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 105
    End Function
End Class
Public Class FeuerkrafttabelleSeeLuft110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 110
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 110
            Case MovementSorts.Transport.ToString.ToUpper
                Return 110
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 110
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 80
            Case MovementSorts.Mech.ToString.ToUpper
                Return 80
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 80
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 80
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 80
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 80
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 80
            Case Else
                Return 80
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleSeeLuft130
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 130
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 130
            Case MovementSorts.Transport.ToString.ToUpper
                Return 130
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 130
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 80
            Case MovementSorts.Mech.ToString.ToUpper
                Return 80
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 80
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 80
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 80
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 80
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 80
            Case Else
                Return 80
        End Select
    End Function
End Class
Public Class Feuerkrafttabelle75
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 75
    End Function
End Class